function vals = get_values(list, datafile);

% ----------------------------------------------
% Gets microarray values from a data file.  
%
% USAGE:
% vals = get_values(cell array, datafile)
% ----------------------------------------------

reals = [];
fakes = [];

for i = 1:length(list)
    [r nums] = system('perl "' which('extract_data.pl') '" "' which(datafile) '" ' list{i}]);
    eval(['mynums = [' nums '];']);
    reals(i,:) = mynums(1:end/2);
    fakes(i,:) = mynums(end/2+1:end);
end

vals = [];
vals(1,:) = mean(reals);
vals(2,:) = mean(fakes);
    